perm filename XXXXXX[1,JRA] blob sn#011359 filedate 1972-11-09 generic text, type T, neo UTF8
(CDR 'TRY-NEXT)
(CEXPR ((POSSIBILITIES "OPTIONAL" (NOMORE NIL) (MESSAGE NIL)) "AUX" ((TRY-NEXT 
(TAG (QUOTE TRY-NEXT))) (OUT (ACCESS)) POS) (CHECKOUT) (CTAG TRY-NEXT) (COND ((
/@ NULL (CSET (QUOTE POS) (CDR (CVALUE POSSIBILITIES)))) (EXIT (CEVAL NOMORE OU
T) TRY-NEXT))) (/@ RPLACD (CVALUE POSSIBILITIES) (CDR (CVALUE POS))) (COND ((/@
 EQ (CAR (CSET (QUOTE POS) (CAR (CVALUE POS)))) (QUOTE *METHOD)) (UPDATE (INVOK
E (CADDR POS) (CADR POS))) (GO TRY-NEXT)) ((/@ EQ (CAR (CVALUE POS)) (QUOTE *GE
NERATOR)) (UPDATE (CEVAL (CADR (CVALUE POS)) (CVALUE OUT))) (GO TRY-NEXT)) ((/@
 EQ (CAR (CVALUE POS)) (QUOTE *AU-REVOIR)) (UPDATE (PROG